home *** CD-ROM | disk | FTP | other *** search
- (if (= @language "deutsch")
- (
- (SET Intro "Wilkommen zum Installer-Script für ACE-BASIC.\n\n WARNUNG: ACE-Basic braucht ca 4MB freien Plattenplatz.")
- (SET Where "Wohin soll ACE-BASIC hinkopiert werden ? Es wird ein Verzeichnis namens ACE angelegt.")
- (SET Addit
- (CAT "Nun Werden folgende Zeilen in ihre User-Startup angehängt.\n\n"
-
- "assign ACElib: ACE:lib \n"
- "assign ACEbmaps: ACE:bmaps \n"
- "assign ACEinclude: ACE:include \n"
- )
- )
- )
- )
-
- (if (= @language "english")
- (
- (SET Intro "Welcome to the installer-script for ACE-BASIC.\n\n WARNING: ACE-BASIC needs about 4MB on your hard-disk.")
- (SET Where "Where do you want to place ACE-BASIC ? A drawer called ACE will be created.")
- (SET Addit "Now some lines will be added to your s:user-startup\n")
- )
- )
-
-
- (MESSAGE Intro)
-
- (SET BasDir
- (ASKDIR
- (PROMPT Where)
- (HELP "")
- (DEFAULT "sys:")
- )
- )
-
- (SET BinDir (TACKON BasDir "ACE"))
-
- (RUN (CAT "makedir \""BinDir"\""))
-
- (COPYFILES
- (SOURCE ":Dev/ACE/")
- (DEST BinDir)
- (ALL)
- (INFOS)
- )
-
- (STARTUP @app-name
- (COMMAND
- (CAT "assign ace: \""BinDir"\" \n"
- "assign ACElib: ACE:lib ; bas finds scanned libraries here.\n"
- "assign ACEbmaps: ACE:bmaps ; ace looks here for .bmap files. \n"
- "assign ACEinclude: ACE:include ; app uses this for include files.\n"
- "assign c: \""(TACKON BinDir "bin")"\" Add \n"
- )
- )
- (PROMPT Addit)
- (HELP "")
- )
-
- (RUN
- (CAT "assign ace: \""BinDir"\" \n"
- "assign ACElib: ACE:lib ; bas finds scanned libraries here.\n"
- "assign ACEbmaps: ACE:bmaps ; ace looks here for .bmap files. \n"
- "assign ACEinclude: ACE:include ; app uses this for include files.\n"
- "assign c: \""(TACKON BinDir "bin")"\" Add \n"
- )
- )
-